home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-11-11 | 2.6 KB | 128 lines | [TEXT/MPS ] |
- {
- File: FileTransferTools.p
-
- Copyright: © 1984-1994 by Apple Computer, Inc.
- All rights reserved.
-
- Version: Universal Interfaces 2.0a3 ETO #16, MPW prerelease. Friday, November 11, 1994.
-
- Bugs?: If you find a problem with this file, send the file and version
- information (from above) and the problem description to:
-
- Internet: apple.bugs@applelink.apple.com
- AppleLink: APPLE.BUGS
-
- }
-
- {$IFC UNDEFINED UsingIncludes}
- {$SETC UsingIncludes := 0}
- {$ENDC}
-
- {$IFC NOT UsingIncludes}
- UNIT FileTransferTools;
- INTERFACE
- {$ENDC}
-
- {$IFC UNDEFINED __FILETRANSFERTOOLS__}
- {$SETC __FILETRANSFERTOOLS__ := 1}
-
- {$I+}
- {$SETC FileTransferToolsIncludes := UsingIncludes}
- {$SETC UsingIncludes := 1}
-
-
- {$IFC UNDEFINED __DIALOGS__}
- {$I Dialogs.p}
- {$ENDC}
- { Errors.p }
- { ConditionalMacros.p }
- { Memory.p }
- { Types.p }
- { MixedMode.p }
- { Windows.p }
- { Quickdraw.p }
- { QuickdrawText.p }
- { Events.p }
- { OSUtils.p }
- { Controls.p }
- { Menus.p }
- { TextEdit.p }
-
- {$IFC UNDEFINED __FILETRANSFERS__}
- {$I FileTransfers.p}
- {$ENDC}
- { CTBUtilities.p }
- { StandardFile.p }
- { Files.p }
- { AppleTalk.p }
- { Connections.p }
- { Terminals.p }
-
- {$PUSH}
- {$ALIGN MAC68K}
- {$LibExport+}
-
- CONST
- { DEFs }
- fdefType = 'fdef';
- fsetType = 'fset';
- fvalType = 'fval';
- flocType = 'floc';
- fscrType = 'fscr';
- fbndType = 'fbnd';
- fverType = 'vers';
-
- { control }
- ftInitMsg = 0;
- ftDisposeMsg = 1;
- ftSuspendMsg = 2;
- ftResumeMsg = 3;
- ftMenuMsg = 4;
- ftEventMsg = 5;
- ftActivateMsg = 6;
- ftDeactivateMsg = 7;
- ftGetErrorStringMsg = 8;
- ftAbortMsg = 52;
- ftStartMsg = 100;
- ftExecMsg = 102;
- ftSendMsg = 103;
- ftReceiveMsg = 104;
- { setup }
- ftSpreflightMsg = 0;
- ftSsetupMsg = 1;
- ftSitemMsg = 2;
- ftSfilterMsg = 3;
- ftScleanupMsg = 4;
- { validate }
- ftValidateMsg = 0;
-
- ftDefaultMsg = 1;
- { scripting }
- ftMgetMsg = 0;
- ftMsetMsg = 1;
- { localization }
- ftL2English = 0;
- ftL2Intl = 1;
-
-
- TYPE
- FTSetupStruct = RECORD
- theDialog: DialogPtr; { the dialog form the application }
- count: INTEGER; { first appended item }
- theConfig: Ptr; { the config record to setup }
- procID: INTEGER; { procID of the tool }
- END;
- FTSetupPtr = ^FTSetupStruct;
-
-
- {$ALIGN RESET}
- {$POP}
-
- {$SETC UsingIncludes := FileTransferToolsIncludes}
-
- {$ENDC} {__FILETRANSFERTOOLS__}
-
- {$IFC NOT UsingIncludes}
- END.
- {$ENDC}
-